home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / charte des coule (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  762b  |  13 lines
  1. 40 FOR I=49152 TO 49188: READ A: POKE I,A: NEXT: POKE 53280,11
  2. 50 PRINT CHR$(147): FOR I=1024 TO I+1000: POKE I,160: POKE I+54272,11: NEXT I
  3. 60 FOR I=0 TO 15: FOR J=0 TO 15
  4. 70 P=1196+(40*I)+J: POKE P,J+1: POKE P+54272,J: NEXT J,I
  5. 80 PRINT TAB(10)CHR$(5)"CHARTE DES COULEURS": FOR I=1 TO 19: PRINT: NEXT
  6. 100 PRINT"LES ECRITURES MONTE DE GAUCHE A DROITE"
  7. 110 PRINT"LE FOND MONTE DU HAUT VERS LE BAS"
  8. 115 PRINT" FIN = PESER SUR RUN-STOP/RESTORE."
  9. 120 SYS 12*4096
  10. 130 DATA 169,90,133,251,169,0,141,33,208,162,15,120
  11. 140 DATA 173,17,208,48,251,173,18,208
  12. 150 DATA 197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219
  13.